// Copyright (C) 2007-2016  CEA/DEN, EDF R&D, OPEN CASCADE
//
// Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2.1 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
//
// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
//

#include <fstream>
#include <cstdio>

#include "UNV2411_Structure.hxx"
#include "UNV_Utilities.hxx"

using namespace std;
using namespace UNV;
using namespace UNV2411;

static string _label_dataset = "2411";

UNV2411::TRecord::TRecord():
  exp_coord_sys_num(1),
  disp_coord_sys_num(1),
  color(11)//(0) -  0019936: EDF 794 SMESH : Export UNV : Node color and group id
{
  coord[1] = coord[2] = 0.0; // prepare to e.g. 2D mesh
}

void UNV2411::Read(std::ifstream& in_stream, TDataSet& theDataSet)
{
  if(!in_stream.good())
    EXCEPTION(runtime_error,"ERROR: Input file not good.");

  /*
   * adjust the \p istream to our
   * position
   */
  if(!beginning_of_dataset(in_stream,_label_dataset))
    EXCEPTION(runtime_error,"ERROR: Could not find "<<_label_dataset<<" dataset!");

  /**
   * always 3 coordinates in the UNV file, no matter
   * which dimensionality libMesh is in
   */
  int dim = 3;
  std::string num_buf;

  // Issue 22638. Find out space dimension to read a 2D mesh from a file
  // generated by SIMAIL from Simulog
  if ( !in_stream.eof() )
  {
    int where  = in_stream.tellg();

    TRecord aRec;
    in_stream >> aRec.label ;
    if ( aRec.label == -1 ) return; // dataset end 

    dim = 0;
    num_buf = read_line( in_stream );
    for ( size_t i = 0; i < num_buf.size(); )
    {
      // skip spaces
      while ( i < num_buf.size() && num_buf[i] == ' ' )
        ++i;

      dim += ( i < num_buf.size() );

      // skip non-spaces
      while ( i < num_buf.size() && num_buf[i] != ' ' )
        ++i;
    }
    if ( dim == 0 )
      return;

    in_stream.seekg( where, in_stream.beg );
  }

  // read the rest records
  while ( !in_stream.eof() )
  {
    TRecord aRec;
    in_stream >> aRec.label ;
    if ( aRec.label == -1 ) {
      // end of dataset is reached
      break;
    }

    in_stream>>aRec.exp_coord_sys_num;
    in_stream>>aRec.disp_coord_sys_num;
    in_stream>>aRec.color;

    /*
     * take care of the
     * floating-point data
     */
    for(int d = 0; d < dim; d++){
      in_stream>>num_buf;
      aRec.coord[d] = D_to_e(num_buf);
    }

    theDataSet.push_back(aRec);
  }
}


void UNV2411::Write(std::ofstream& out_stream, const TDataSet& theDataSet)
{
  if(!out_stream.good())
    EXCEPTION(runtime_error,"ERROR: Output file not good.");
  
  /*
   * Write beginning of dataset
   */
  out_stream<<"    -1\n";
  out_stream<<"  "<<_label_dataset<<"\n";

  TDataSet::const_iterator anIter = theDataSet.begin();
  for(; anIter != theDataSet.end(); anIter++)
  {
    const TRecord& aRec = *anIter;
    char buf[78];
    sprintf(buf, "%10d%10d%10d%10d\n", 
            aRec.label,
            aRec.exp_coord_sys_num,
            aRec.disp_coord_sys_num,
            aRec.color);
    out_stream<<buf;

    // the coordinates
    sprintf(buf, "%25.16E%25.16E%25.16E\n", 
            aRec.coord[0],
            aRec.coord[1],
            aRec.coord[2]);
    out_stream<<buf;
  }
  
  
  /*
   * Write end of dataset
   */
  out_stream<<"    -1\n";
}
